From 3ec46acdf05992376779a76295e926f1c243991c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Jun 1993 01:09:50 +0000 Subject: [PATCH] (syms_of_fileio): Set up Qset_visited_file_modtime. (Fset_visited_file_modtime): Use the proper operation. --- src/fileio.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/fileio.c b/src/fileio.c index 714c41410f7..bf2391c6894 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -165,6 +165,7 @@ Lisp_Object Qfile_newer_than_file_p; Lisp_Object Qinsert_file_contents; Lisp_Object Qwrite_region; Lisp_Object Qverify_visited_file_modtime; +Lisp_Object Qset_visited_file_modtime; DEFUN ("find-file-name-handler", Ffind_file_name_handler, Sfind_file_name_handler, 1, 1, 0, "Return FILENAME's handler function, if its syntax is handled specially.\n\ @@ -2908,7 +2909,7 @@ An argument specifies the modification time value to use\n\ call the corresponding file handler. */ handler = Ffind_file_name_handler (filename); if (!NILP (handler)) - return call3 (handler, Qfile_name_directory, filename, Qnil); + return call3 (handler, Qset_visited_file_modtime, filename, Qnil); else if (stat (XSTRING (filename)->data, &st) >= 0) current_buffer->modtime = st.st_mtime; } @@ -3336,6 +3337,7 @@ syms_of_fileio () Qinsert_file_contents = intern ("insert-file-contents"); Qwrite_region = intern ("write-region"); Qverify_visited_file_modtime = intern ("verify-visited-file-modtime"); + Qset_visited_file_modtime = intern ("set-visited-file-modtime"); staticpro (&Qexpand_file_name); staticpro (&Qdirectory_file_name); -- 2.30.2